home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / COM / LineShare 3.3.1 folder.sit / LineShare 3.3.1 folder / LineShare 3.3.1 / LineShare Scripts / Supra Voice&Fax1&ARA&Data < prev    next >
Text File  |  1995-01-11  |  13KB  |  702 lines
  1. !V3.0
  2. !
  3. !$ Use this script with Supra 14400bps and 9600bps fax modems.
  4. !$ Supports: voice, fax, and ARA incoming calls.
  5. !
  6. !$ Make sure that *Class 1* fax software is installed, and that
  7. !$ your modem has voice-capable ROMs.
  8. !
  9. !$ A hardware handshaking cable is required.
  10.  
  11. ^2 Fax Software:     = Enum("FaxSTF 2.x Class 1" = "0","FaxSTF 3.x/Faxilitate"="1","FaxSTF Class 2" = "2","Delrina"="3","4-Sight"="4") "0"
  12. ^3 Error Correction: = Bool("Enabled"="¥N3","Disabled"="¥N0") "¥N0"
  13. ^4 Handshake wires:  = Bool("Both"="&D0¥K0","CTS only"="&D2¥K5") "&D2¥K5"
  14. ! ------------------------------------------
  15. ! Resetting the modem:
  16. ! ------------------------------------------
  17. @HANGUP
  18.   SerReset 19200,0,8,1
  19.   HsReset 0,0,17,19,0,0
  20.   Flush
  21.   SetTries 2
  22.   write "ATH0S0=0¥r"
  23.   Flush
  24.  
  25. !
  26. ! Try to catch the "OK" answer, use the Escape seq and DTR transitions
  27. ! to enter the command mode
  28. !
  29. @Label 1
  30.   write "AT+VC=0¥r"
  31.   flush
  32.   write "AT&F1V1¥r"
  33.   matchclr
  34.   matchstr 1 2 "OK¥r¥n"
  35.   matchread 20
  36.   Chrdelay 1
  37.   Write "+++"
  38.   Chrdelay 0
  39.   DtrClear
  40.   SBreak
  41.   DtrSet
  42.  
  43.   write "AT+VC=0¥r"
  44.   matchclr
  45.   matchstr 1 1 "OK¥r¥n"
  46.   matchread 10
  47. !
  48.   Write "ATE0V1¥r"
  49.   Matchstr 1 1 "OK¥r¥n"
  50.   Matchread 10
  51.  
  52.   write "ATH0¥r"
  53.   matchstr 1 1 "OK¥r¥n"
  54.   matchread 10
  55.   DecTries
  56.   IfTries 0 1
  57.   exit -6019
  58.  
  59. @Label 2
  60.   SerReset 19200,0,8,1
  61.   Jsr 80
  62.   Write "AT+FCLASS=0;+FAE=0¥r"
  63.   Jsr 100
  64.   exit 0
  65.  
  66.  
  67. ! ------------------------------------------
  68. !    Receiving incoming calls
  69. ! ------------------------------------------
  70. @ANSWER
  71.   SerReset 19200,0,8,1
  72. @Label 3
  73.   Jsr 70
  74.  
  75.   ifOpen "Voice" 11
  76. !
  77. ! Waiting for Fax/ARA calls only (no Voice App running)
  78.   Note "Voice Application is not running..."
  79.  
  80. !  No Voice App running -- turn off caller ID
  81.   Write "AT#CID=0¥r"
  82.   Jsr 100
  83.  
  84. !  This would allow us to not go into AA mode if we could have more labels.
  85.   ifOpen "ARA"  4
  86.   IfOpen "Data" 4
  87.   ifOpen "Fax"  4
  88.   Note "No services active: the modem will not answer."
  89.   Pause 600
  90.   Jump 3
  91.  
  92. ! Fax/Data only (no voice)
  93. @Label 4
  94.   Jsr 130
  95.   Jsr 55
  96. !
  97. ! Fetch the tube after S0 rings
  98.   SetVar B "S0=2"
  99.   GetCommand A "Fax" "S0"
  100.   IfStr A 5 "S0=0"
  101.   IfStr A 5 ""
  102.   SetVar B "^A"
  103. @Label 5
  104.   Write "AT^B¥r"
  105.   Jsr 100
  106. !
  107. ! Tell the modem to detect the type of the incoming call
  108. ! Switch to the "numeric" mode, if necessary
  109.   SetVar A "1"
  110.   Jsr 56
  111.  
  112. !
  113. ! Everything is ready - let's sit and wait for a call
  114.   Note "Waiting for a fax or ARA/Data call..."
  115.   Jsr 175
  116.   IfStr A 20 "Data"
  117.   IfStr A 40 "Fax1"
  118.   IfStr A 45 "Fax2"
  119.   Jump 3
  120.  
  121. ! ---------- Voice Mode ---------
  122. ! check to see if the voice code has been downloaded
  123. ! if not, tell PhonePro to download it.
  124. !
  125. @Label 11
  126.   Note "Checking the modem..."
  127.   Write "AT+VC=0¥r"
  128.   Jsr 120 
  129.   Write "AT+VC=1¥r"
  130.   MatchClr
  131.   MatchStr 1 14 "OK¥r¥n"
  132.   MatchStr 2 13 "ERROR¥r¥n"
  133.   MatchRead 20
  134.   Exit -6019
  135. !
  136. !  tell the Voice Tool to download the voice code
  137. !
  138. @Label 13
  139.   Note "Downloading voice code to modem..."
  140.   Pause 20
  141.   QueueInput "¥r¥nLOAD¥r¥n"
  142.   Attach "Voice" (Master)
  143.  
  144. @Label 14
  145.   Write "AT+VC=0¥r"
  146.   Jsr 100
  147.  
  148. !
  149. ! sit and wait for a call for up to 30 seconds, then re-initiate the modem
  150. ! Get caller ID, if voice enabled
  151. !! QueueInput "¥r¥nGET_CALLER_ID_FLAG¥r¥n"
  152. !! Attach "Voice" (Master)
  153. !! SetVar B "^$"
  154. !! Write "AT#CID=^B¥r"
  155. !! Jsr 100
  156.  
  157.   Note "Waiting for a Voice/Fax/ARA/Data call"
  158.   MatchClr
  159.   MatchStr 1 15 "RING¥r¥n"
  160.   MatchRead 1800
  161.   Jump 3
  162.  
  163. @Label 15
  164.   Note "Ring..."
  165.   QueueInput "¥r¥nRING¥r¥n"
  166.   Attach "Voice" (Master)
  167.   Write "+++"
  168.   Note "Switching from voice..."
  169.  
  170. ! fall through if the call is not a voice call (as indicated by the telephone tool)
  171. !
  172.   SetVar A "^$"
  173.   SerReset 19200,0,8,1
  174.   HsReset 0,0,17,19,0,0
  175.   Jsr 80
  176.  
  177.   IfStr A 17 "Fax"
  178.   IfStr A 18 "ARA"
  179.   Exit -6019
  180.  
  181. !
  182. ! Force to answer a Fax call
  183. !
  184. @Label 17
  185.   Note "Answering a fax call..."
  186.   SetVar A "0"
  187.   Jsr 56
  188.   Write "ATA¥r"
  189.   Jsr 175
  190.   ifStr A 40 "Fax1"
  191.   ifStr A 45 "Fax2"
  192.   Write "¥r"
  193.   Exit -6019
  194.  
  195. !
  196. ! Force to answer an ARA/Data call
  197. !
  198. @Label 18
  199.   Note "Answering a data call..."
  200.   Jsr 70
  201. ! Set the communication options:
  202.   Jsr 55
  203.   Write "AT+FAA=0;+FCLASS=0¥r"
  204.   Jsr 100
  205.   Write "ATA¥r"
  206.   Jsr 180
  207.   IfStr A 20 "Data"
  208.   Write "¥r"
  209.   Exit -6019
  210.  
  211. !
  212. ! Data connection has been established (we read "CONNECT")
  213. ! Put the "CONNECT" back to the buffer and attach the "Data" subPort
  214. ! if it was an incoming call, put the "RING" before the "CONNECT"
  215. !
  216. @Label 20
  217.   IfOpen "Data" 21
  218.   Jump 30
  219. @Label 21
  220.   IfOpen "ARA" 22
  221.   Jump 35
  222. @Label 22
  223.   Note "Waiting for an ARA frame"
  224.   MatchClr
  225.   MatchStr 1 23 "^$¥r"
  226.   MatchStr 2 28 "¥08¥01¥03¥14¥04¥03¥00¥08¥250¥16¥03"
  227.   MatchStr 3 29 "¥01¥27¥02¥29¥01¥02¥01¥06"
  228.   MatchRead 40
  229.   Jump 24
  230. @Label 23
  231.   QueueInput "^$¥r"
  232. @Label 24
  233.   Note "Non-ARA call"
  234.   Jump 35
  235.  
  236. @Label 28
  237.   Note "ARA 1.0 call"
  238.   Jump 30
  239. @Label 29
  240.   Note "ARA 2.0 call"
  241.   Jump 30
  242.  
  243. @Label 30
  244.   QueueInput "¥r¥nCARRIER ^B¥r¥n"  
  245.   IfStr C 31 "NONE"
  246.   QueueInput "¥r¥nREL¥r¥n"
  247. @Label 31
  248.   IfOriginate 32
  249.   QueueInput "¥r¥nRING¥r¥n"
  250. @Label 32
  251.   Attach "ARA" (DTR)
  252.  
  253. @Label 35
  254.   GetSReg C "DATA" 4
  255.   QueueInput "¥r^CCONNECT ^B¥r^C"
  256.   ifOriginate 36
  257.   QueueInput "¥r^CRING¥r^C"
  258. @Label 36
  259.   Attach "Data" (DTR,Escape,Break,IdleLimit=60)
  260.  
  261. !
  262. ! Fax Class 1 connection has been established
  263. ! Attach the "Fax" subPort
  264. @Label 40
  265.   QueueInput "1¥r"
  266.   ifOriginate 41
  267.   QueueInput "2¥r"
  268. @Label 41
  269.   IfStr 2 42 "0"
  270.   Attach "Fax" (DTR,Reset)
  271. @Label 42
  272.   Attach "Fax" (DTR,Reset(2400))
  273.  
  274. !
  275. ! Fax Class 2 connection has been established
  276. ! Attach the "Fax" subPort
  277. @Label 45
  278.   QueueInput "¥r¥n+FCON¥r¥n"
  279.   ifOriginate 46
  280.   QueueInput "¥r¥nRING¥r¥n"
  281. @Label 46
  282.   IfStr 2 47 "2"
  283.   Attach "Fax" (DTR)
  284. @Label 47
  285.   Attach "Fax" (DTR,Reset)
  286.  
  287. ! ------------------------------------------
  288. ! Originating a call through the "Voice" subport
  289. ! ------------------------------------------
  290. @ORIGINATE "Voice" ("¥r¥nBUSY¥r¥n")
  291.   Note "PhonePro is originating a call ..."
  292.   SerReset *
  293.   HsReset *
  294.   Attach "Voice" (Escape, Master)
  295.   Exit -6019
  296.  
  297.  
  298.  
  299. ! ------------------------------------------
  300. ! Originating a call through the "ARA" subport
  301. ! ------------------------------------------
  302. @ORIGINATE "ARA"
  303.   Jsr 51
  304.   Jump 30
  305.  
  306. ! ------------------------------------------
  307. ! Originating a call through the "Data" subport
  308. ! ------------------------------------------
  309. @ORIGINATE "Data"
  310.   Jsr 51
  311.   Jump 35
  312.  
  313. @Label 51
  314.   SerReset 38400,0,8,1
  315.   Jsr 80
  316. !
  317. ! Set the common options & Comm options
  318.   Jsr 70
  319.   Jsr 55
  320. !
  321. ! Prepare to receive all error result codes, dial the number
  322.   Write "ATDT^1¥r"
  323.   Jsr 180
  324.   IfStr A 103 "Data"
  325.   Write "¥r"
  326.   Exit -6019
  327.  
  328. ! ------------------------------------------
  329. ! Originating a call through the "Fax" subPort
  330. ! ------------------------------------------
  331. @ORIGINATE "Fax" ("¥r¥nBUSY¥r¥n")
  332. ! Clear the modem's magic memory
  333.   Jsr 130
  334.   SerReset *
  335.   HsReset *
  336.   Jsr 80
  337.   Write "ATZ¥r"
  338.   Jsr 100
  339.   Write "AT+VC=0¥r"
  340.   Jsr 120
  341. !
  342. ! Set the common options
  343.   Jsr 70
  344.  
  345. !
  346. ! Set the Fax mode
  347.   SetVar A "2"
  348.   Jsr 56 
  349.   Write "AT+VC=0¥r"
  350.   Jsr 120
  351.  
  352. !
  353. ! Now emit all commands that the application has sent to that port,
  354. ! except "+FCLASS", etc
  355. !
  356.   EmitClear "+FCLASS","V","E","S0"
  357.   Jsr 60
  358.  
  359. !
  360. ! Switch the verbos mode, if necesary
  361. !
  362.   Jsr 58
  363.  
  364.   Write "ATD^1¥r"
  365.   Jsr 175
  366.   HsReset *
  367.   IfStr A 40 "Fax1"
  368.   IfStr A 45 "Fax2"
  369.   Write "¥r"
  370.   Exit -6019
  371.  
  372. !
  373. ! Set the communication options:
  374. ! ･ ¥N0 &Q6: Normal connection (for ARA)
  375. ! ･ &K3: HW flow control       (for ARA, Fax should not use a handshake on receiving)
  376. ! ･ W1:  report connection speed
  377. !
  378. @Label 55
  379.   Write "AT^3&K3W1¥r"
  380.   Jsr 100
  381.   return
  382.  
  383. !
  384. ! Tuning the fax mode
  385. @Label 56
  386.   ifStr 2 57 "0"
  387.   ifStr 2 57 "1"
  388.   Write "AT+FCLASS=2¥r"
  389.   Jsr 100
  390.   GetCommand A "Fax" "+FLID="
  391.   Jsr 99
  392.   Write "AT+FDCC=1,3,0,2,0,0,0,0¥r"
  393.   Jsr 100
  394.   GetCommand A "Fax" "+FDCC="
  395.   Jsr 99
  396.   GetCommand A "Fax" "+FBOR="
  397.   Jsr 99
  398.   ifStr A 103 "0"
  399.   ifStr A 103 "2"
  400.   Write "AT+FAA=1;+FCLASS=0¥r"
  401.   Jump 100
  402.  
  403. @Label 57
  404.   Write "AT&K4+FCLASS=1¥r"
  405.   Jsr 100
  406.   ifStr A 103 "2"
  407.   ifStr A 58 "0"
  408.   Write "AT+FAE=1;+FCLASS=0¥r"
  409.   Jsr 100
  410. @Label 58
  411.   ifStr 2 59 "0"
  412.   ifStr 2 59 "1"
  413.   return
  414. @Label 59
  415.   Write "ATV0¥r"
  416.   Jump 110
  417.  
  418. !
  419. ! This section emits all modem commands sent from the client application
  420. ! For each set of commands the "OK" answer is awaited
  421. !
  422. @Label 60
  423.   EmitStart
  424. @Label 61
  425.   EmitCommand 62
  426.   Jsr 100
  427.   Jump 61
  428. @Label 62
  429.   return
  430. !
  431. ! This section initiates the modem before ANSWER and ORIGINATEs:
  432. ! extended responses + connect at the highest rate + speaker control +
  433. ! reset on Dtr drop + DCD valid
  434. ! Verbal responses mode, no echo
  435. !
  436. @Label 70
  437.   Write "ATX4N1^4&C1V1E0¥r"
  438.   Jsr 100
  439.   return
  440.  
  441. !
  442. ! This section syncronize the modem after the serial port speed switching
  443. !
  444. @Label 80
  445.   ChrDelay 1
  446.   Write "¥r¥r"
  447.   Pause 2
  448.   Write "AT¥r"
  449.   ChrDelay 0
  450.   Jsr 100
  451.   return
  452. !
  453. ! Prepare to receive error result codes, send the dialing command and
  454. ! set the user's handshake mode
  455. !
  456. @Label 90
  457.   MatchClr
  458.   MatchStr 2 91 "NO DIALTONE¥r¥n"
  459.   MatchStr 3 92 "BUSY¥r¥n"
  460.   MatchStr 4 93 "NO CARRIER¥r¥n"
  461.   MatchStr 5 94 "NO ANSWER¥r¥n"
  462.   Write "ATD^1¥r"
  463.   HsReset *
  464.   return
  465.  
  466. @Label 91
  467.   exit -6020
  468. @Label 92
  469.   exit -6022
  470. @Label 93
  471.   exit -6021
  472. @Label 94
  473.   exit -6023
  474. !
  475. ! Processing the AT command:
  476. ! OK -> proceed
  477. ! ERROR or TimeOut ->exit -6019
  478. ! It can be called AFTER the "Write" command, since LineShare buffers input
  479. !
  480. @Label 99
  481.   Write "AT^A¥r"
  482. @Label 100
  483.   MatchClr
  484.   MatchStr 1 103 "¥r¥nOK¥r¥n"
  485.   MatchStr 2 102 "¥r¥nERROR¥r¥n"
  486. @Label 101
  487.   MatchRead 20
  488. @Label 102
  489.   Exit -6019
  490. @Label 103
  491.   return
  492.  
  493. @Label 110
  494.   MatchClr
  495.   MatchStr 1 103 "0¥r"
  496.   MatchStr 2 102 "4¥r"
  497.   Jump 101
  498.  
  499. @Label 120
  500.   MatchClr
  501.   MatchStr 1 103 "¥r¥nOK¥r¥n"
  502.   MatchStr 2 103 "¥r¥nERROR¥r¥n"
  503.   MatchRead 20
  504.   Exit -6019
  505.  
  506. !This zeros out a location in memory that
  507. !when cleared, enables STF to send/receive faxes.
  508. @Label 130
  509.   MatchClr
  510.   Write "AT!2000M¥r"
  511.   MatchStr 1 131 "¥r¥n2000: "
  512.   MatchRead 20
  513.   Jump 150
  514.  
  515. @Label 131
  516.   MatchClr
  517.   Write "00"
  518.   MatchStr 1 132 "¥r¥n2001: "
  519.   MatchRead20
  520.   Jump 150
  521.  
  522. @Label 132
  523.   MatchClr
  524.   Write "00"
  525.   MatchStr 1 133 "¥r¥n2002: "
  526.   MatchRead 20
  527.   Jump 150
  528.  
  529. @Label 133
  530.   MatchClr
  531.   Write "00"
  532.   MatchStr 1 134 "¥r¥n2003: "
  533.   MatchRead 20
  534.   Jump 150
  535.  
  536. @Label 134
  537.   MatchClr
  538.   Write "00"
  539.   MatchStr 1 135 "¥r¥n2004: "
  540.   MatchRead 20
  541.   Jump 150
  542.  
  543. @Label 135
  544.   MatchClr
  545.   Write " "
  546.   Jsr 100
  547.  
  548. @Label 136
  549.   MatchClr
  550.   Write "AT!2007M¥r"
  551.   MatchStr 1 137 "¥r¥n2007: "
  552.   MatchRead 20
  553.   Jump 150
  554.  
  555. @Label 137
  556.   MatchClr
  557.   Write "00"
  558.   MatchStr 1 138 "¥r¥n2008: "
  559.   MatchRead20
  560.   Jump 150
  561.  
  562. @Label 138
  563.   MatchClr
  564.   Write "00"
  565.   MatchStr 1 139 "¥r¥n2009: "
  566.   MatchRead20
  567.   Jump 150
  568.  
  569. @Label 139
  570.   MatchClr
  571.   Write "00"
  572.   MatchStr 1 140 "¥r¥n200A: "
  573.   MatchRead20
  574.   Jump 150
  575.  
  576. @Label 140
  577.   MatchClr
  578.   Write "00"
  579.   MatchStr 1 141 "¥r¥n200B: "
  580.   MatchRead20
  581.   Jump 150
  582.  
  583. @Label 141
  584.   Write " "
  585.   Jsr 100
  586.   return
  587.  
  588. @Label 150
  589.   Note "Error clearing the modem's memory"
  590.   Pause 50
  591.   Write "   "
  592.   return
  593.  
  594. !
  595. ! Connection. On exit, variables contain:
  596. ! ^A - NONE, Data or Fax
  597. ! ^B - connection speed
  598. ! ^C - PROTOCOL used
  599. @Label 175
  600.   ifStr 2 190 "0"
  601.   ifStr 2 190 "1"
  602. @Label 180
  603.   SetVar C "NONE"
  604.   MatchClr
  605.   MatchStr 01 182 "RING¥r¥n"
  606.   MatchStr 02 183 "PROTOCOL: ^$¥r¥n"
  607.   MatchStr 03 184 "CARRIER ^$¥r¥n"
  608.   MatchStr 04 185 "CONNECT ^$¥r¥n"
  609.   MatchStr 05 186 "+FCON¥r¥n"
  610.   MatchStr 06  91 "NO DIALTONE¥r¥n"
  611.   MatchStr 07  92 "BUSY¥r¥n"
  612.   MatchStr 08  93 "NO CARRIER¥r¥n"
  613.   MatchStr 09  94 "NO ANSWER¥r¥n"
  614. @Label 181
  615.   MatchRead 1200
  616.   SetVar A "NONE"
  617.   return
  618.  
  619. @Label 182
  620.   Note "Ringﾉ"
  621.   Jump 181
  622. @Label 183
  623.   SetVar C "^$"
  624.   Jump 181
  625. @Label 184
  626.   SetVar B "^$"
  627.   Jump 181
  628. @Label 185
  629.   SetVar A "Data"
  630.   return
  631. @Label 186
  632.   SetVar A "Fax2"
  633.   return
  634.  
  635.  
  636. @Label 190
  637.   SetVar C "NONE"
  638.   MatchClr
  639.   MatchStr 01 191 "70¥r"
  640.   MatchStr 02 193 "77¥r"
  641.   MatchStr 03 193 "80¥r"
  642.  
  643.   MatchStr 04 194 "47¥r"
  644.   MatchStr 05 195 "48¥r"
  645.   MatchStr 06 196 "49¥r"
  646.   MatchStr 07 197 "50¥r"
  647.   MatchStr 08 198 "51¥r"
  648.   MatchStr 09 199 "52¥r"
  649.  
  650.   MatchStr 10 200 "16¥r"
  651.   MatchStr 11 200 "17¥r"
  652.   MatchStr 12 200 "18¥r"
  653.  
  654.   MatchStr 13 192 "2¥r"
  655.   MatchStr 14 201 "1¥r"
  656.   MatchStr 15 191 "33¥r"
  657.  
  658.   MatchStr 16 91 "6¥r"
  659.   MatchStr 17 92 "7¥r"
  660.   MatchStr 18 93 "3¥r"
  661.   MatchStr 19 94 "8¥r"
  662.  
  663. @Label 191
  664.   MatchRead 1200
  665.   SetVar A "NONE"
  666.   return
  667.  
  668. @Label 192
  669.   Note "Ringﾉ"
  670.   Jump 191
  671.  
  672. @Label 193
  673.   SetVar C "REL"
  674.   Jump 181
  675.  
  676. @Label 194
  677.   SetVar B "2400"
  678.   Jump 191
  679. @Label 195
  680.   SetVar B "4800"
  681.   Jump 191
  682. @Label 196
  683.   SetVar B "7200"
  684.   Jump 191
  685. @Label 197
  686.   SetVar B "9600"
  687.   Jump 191
  688. @Label 198
  689.   SetVar B "12000"
  690.   Jump 191
  691. @Label 199
  692.   SetVar B "14400"
  693.   Jump 191
  694.  
  695. @Label 200
  696.   SetVar A "Data"
  697.   return
  698.  
  699. @Label 201
  700.   SetVar A "Fax1"
  701.   return
  702.